Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/Organization/HyperTree/background_2888.txt

Text File | 1988-07-30 | 36.9 KB | 1,732 lines

-- background: 2888 from stack: in
-- bmap block id: 3292
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on closeCard
  set cursor to 4
  set name of this card to field 1
  get field 1
  put it into origCard
  if it is not in card field 1 of card "Tree"
  then put field 1 & return after card field 1 of card "Tree"
  hide field "Story"
  push card
  set cursor to 1
end closeCard
on idle
  if visible of background button 50 is true
  then
  set cursor to 4
  hide field "Story"
  repeat with x = 49 to 55
    hide background button x
  end repeat
end if
end idle



-- part 1 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=89 top=26 right=50 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Name


-- part 2 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=143 top=51 right=69 bottom=230
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 3 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=244 top=51 right=69 bottom=446
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 4 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=143 top=68 right=86 bottom=230
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 5 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=244 top=68 right=86 bottom=446
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 6 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=312 top=154 right=288 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 10
-- style flags: 0
-- line height: 11
-- part name: Siblings


-- part 8 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=55 top=205 right=224 bottom=284
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 9 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=55 top=223 right=242 bottom=284
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 10 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=74 top=244 right=258 bottom=169
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name:


-- part 11 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=74 top=257 right=271 bottom=277
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name:


-- part 12 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=152 top=85 right=103 bottom=398
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 14 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=93 top=102 right=116 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name:


-- part 20 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=193 top=102 right=116 bottom=395
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on closeField
  exit closeField
  put field 1 into sName
  put field 12 into fmDate
  put field 13 into fmPerson
  if (field 13 is not empty) and (field 13 is not in card field 1 of card "Tree")
  then
  push card
  set lockScreen to true
  doMenu "New Card"
  put fmPerson into field 1
  put fmPerson & return after card field 1 of card "Tree"
  set name of this card to field 1
  put fmDate into field 12
  put sName into field 13
  pop card
  set lockScreen to false
end if
end closeField


-- part 21 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=93 top=115 right=129 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name:


-- part 22 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=193 top=115 right=129 bottom=395
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on closeField
  exit closeField
  put field 1 into sName
  put field 14 into smDate
  put field 15 into smPerson
  if (field 15 is not empty) and (field 15 is not in card field 1 of card "Tree")
  then
  push card
  set lockScreen to true
  doMenu "New Card"
  put smPerson into field 1
  put smPerson & return after card field 1 of card "Tree"
  set name of this card to field 1
  put smDate into field 12
  put sName into field 13
  pop card
  set lockScreen to false
end if
end closeField


-- part 23 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=93 top=128 right=142 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name:


-- part 24 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=193 top=128 right=142 bottom=395
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on closeField
  exit closeField
  put field 1 into sName
  put field 16 into tmDate
  put field 17 into tmPerson
  if (field 17 is not empty) and (field 17 is not in card field 1 of card "Tree")
  then
  push card
  set lockScreen to true
  doMenu "New Card"
  put tmPerson into field 1
  put tmPerson & return after card field 1 of card "Tree"
  set name of this card to field 1
  put tmDate into field 12
  put sName into field 13
  pop card
  set lockScreen to false
end if
end closeField


-- part 26 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=257 top=298 right=321 bottom=282
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go to next card
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=228 top=298 right=321 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go to prev card
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=51 top=297 right=327 bottom=81
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find " "
----- HyperTalk script -----
on mouseUp
  DoMenu Find...
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=136 top=288 right=338 bottom=210
-- title width / last selected line: 0
-- icon id / first selected line: 1004 / 1004
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Read/Edit Story
----- HyperTalk script -----
on mouseUp
  show field "Story"
  show background button "Hide Story"
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=354 top=287 right=337 bottom=403
-- title width / last selected line: 0
-- icon id / first selected line: 3430 / 3430
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Blank Card
----- HyperTalk script -----
on mouseUp
  doMenu "New Card"
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=480 top=301 right=328 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 6720 / 6720
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  visual dissolve
  pop card
end mouseUp



-- part 35 (button)
-- low flags: 80
-- high flags: 8001
-- rect: left=149 top=289 right=339 bottom=223
-- title width / last selected line: 0
-- icon id / first selected line: 1004 / 1004
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hide Story
----- HyperTalk script -----
on mouseUp
  hide field "Story"
  hide background button "Hide Story"
  show background button "Read/Edit Story"
end mouseUp



-- part 51 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=413 top=287 right=337 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 11645 / 11645
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Create Cards
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  set lockScreen to true
  if (field "Siblings" is empty) and (field 7 is empty) and (field 8 is empty) and (field 13 is empty) and (field 15 is empty) and (field 17 is empty) and (field 19 is empty)
  then
  exit mouseUp
else
  put field 1 into cName
  if field "Siblings" is not empty
  then
  put field 1 into sName
  get the number of lines in field "Siblings"
  put it into numLine
  push card
  doMenu "Copy Card"
  repeat with z = 1 to numLine
    if line z of field "Siblings" is in card field "CardNames" of card "Tree"
    then next repeat
  else
    doMenu "Paste Card"
    repeat with b = 2 to 5
      put empty into field b
    end repeat
    repeat with c = 11 to 18
      put empty into field c
    end repeat
    put line z of field "Siblings" into field 1
    set the name of this card to field 1
    put field 1 & return after card field "CardNames" of card "Tree"
    put sName into line z of field "Siblings"
  end if
end repeat
end if
pop card
end if
push card
if (field 7 is not empty) or (field 8 is not empty)
then
put field 7 into fName
put field 8 into mName
put field 9 into mDate
if fName is not in card field 1 of card "Tree"
then
doMenu "New Card"
put fName into field 1
put mName into field 13
put mDate into field 12
set name of this card to field 1
put field 1 & return after card field 1 of card "Tree"
end if
if mName is not in card field 1 of card "Tree"
then
doMenu "New Card"
put mName into field 1
put fName into field 13
put mDate into field 12
set name of this card to field 1
put field 1 & return after card field 1 of card "Tree"
end if
end if
pop card
push card
put field 1 into sName
put field 12 into fmDate
put field 13 into fmPerson
put field 14 into smDate
put field 15 into smPerson
put field 16 into tmDate
put field 17 into tmPerson
put field 18 into fomDate
put field 19 into fomPerson
put field 21 into fDiv
put field 22 into sDiv
put field 23 into tDiv
put field 24 into foDiv
if (field 13 is not empty) and (field 13 is not in card field 1 of card "Tree")
then
doMenu "New Card"
put fmPerson into field 1
put fmPerson & return after card field 1 of card "Tree"
set name of this card to field 1
put fmDate into field 12
put sName into field 13
put fDiv into field 21
end if
if (smPerson is not empty) and (smPerson is not in card field 1 of card "Tree")
then
doMenu "New Card"
put smPerson into field 1
put smPerson & return after card field 1 of card "Tree"
set name of this card to field 1
put smDate into field 12
put sName into field 13
put sDiv into field 21
end if
if (tmPerson is not empty) and (tmPerson is not in card field 1 of card "Tree")
then
doMenu "New Card"
put tmPerson into field 1
put tmPerson & return after card field 1 of card "Tree"
set name of this card to field 1
put tmDate into field 12
put sName into field 13
put tDiv into field 21
end if
if (fomPerson is not empty) and (fomPerson is not in card field 1 of card "Tree")
then
doMenu "New Card"
put fomPerson into field 1
put fomPerson & return after card field 1 of card "Tree"
set name of this card to field 1
put fomDate into field 12
put sName into field 13
put foDiv into field 21
end if
pop card
pop card
set cursor to 1
end mouseUp



-- part 52 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=483 top=26 right=51 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  visual venetian blinds
  go to card "Intro"
  set cursor to 4
  repeat with x = 3 to the number of card fields
    show card field x
  end repeat
  show button "OK, return to previous card"
end mouseUp



-- part 58 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=494 top=154 right=166 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  visual dissolve
  go to card (line 1 of field "Siblings")
end mouseUp


-- part 59 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=494 top=165 right=177 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  visual dissolve
  go to card (line 2 of field "Siblings")
end mouseUp


-- part 60 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=494 top=176 right=188 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  visual dissolve
  go to card (line 3 of field "Siblings")
end mouseUp


-- part 61 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=494 top=187 right=199 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  visual dissolve
  go to card (line 4 of field "Siblings")
end mouseUp


-- part 62 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=494 top=198 right=210 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  visual dissolve
  go to card (line 5 of field "Siblings")
end mouseUp


-- part 63 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=494 top=209 right=221 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  visual dissolve
  go to card (line 6 of field "Siblings")
end mouseUp


-- part 64 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=494 top=220 right=232 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  visual dissolve
  go to card (line 7 of field "Siblings")
end mouseUp


-- part 65 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=494 top=231 right=243 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  visual dissolve
  go to card (line 8 of field "Siblings")
end mouseUp


-- part 66 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=494 top=242 right=254 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  visual dissolve
  go to card (line 9 of field "Siblings")
end mouseUp


-- part 67 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=494 top=253 right=265 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  visual dissolve
  go to card (line 10 of field "Siblings")
end mouseUp


-- part 68 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=494 top=264 right=276 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  visual dissolve
  go to card (line 11 of field "Siblings")
end mouseUp


-- part 69 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=494 top=275 right=287 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  visual dissolve
  go to card (line 12 of field "Siblings")
end mouseUp


-- part 70 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=281 top=208 right=220 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  visual dissolve
  go to card (field 7)
end mouseUp


-- part 71 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=281 top=226 right=238 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  visual dissolve
  go to card (field 8)
end mouseUp


-- part 96 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=494 top=101 right=113 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  visual dissolve
  go to card (field 13)
end mouseUp


-- part 99 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=93 top=141 right=155 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name:


-- part 97 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=494 top=114 right=126 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  visual dissolve
  go to card (field 15)
end mouseUp


-- part 98 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=494 top=127 right=139 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  visual dissolve
  go to card (field 17)
end mouseUp


-- part 100 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=193 top=141 right=155 bottom=395
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on closeField
  exit closeField
  put field 1 into sName
  put field 18 into tmDate
  put field 19 into tmPerson
  if (field 19 is not empty) and (field 19 is not in card field 1 of card "Tree")
  then
  push card
  set lockScreen to true
  doMenu "New Card"
  put tmPerson into field 1
  put tmPerson & return after card field 1 of card "Tree"
  set name of this card to field 1
  put tmDate into field 12
  put sName into field 13
  pop card
  set lockScreen to false
end if
end closeField


-- part 104 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=494 top=140 right=152 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  push card
  visual dissolve
  go to card (field 19)
end mouseUp


-- part 105 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=297 top=154 right=166 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global treeStart
  put line 1 of field "Siblings" into treeStart
  if treeStart is empty or treeStart is not in card field 1 of card "Tree" then exit mouseUp
  push card
  pass mouseUp
end mouseUp



-- part 117 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=297 top=165 right=177 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global treeStart
  put line 2 of field "Siblings" into treeStart
  if treeStart is empty or treeStart is not in card field 1 of card "Tree" then exit mouseUp
  push card
  pass mouseUp
end mouseUp



-- part 118 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=297 top=176 right=188 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global treeStart
  put line 3 of field "Siblings" into treeStart
  if treeStart is empty or treeStart is not in card field 1 of card "Tree" then exit mouseUp
  push card
  pass mouseUp
end mouseUp



-- part 119 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=297 top=187 right=199 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global treeStart
  put line 4 of field "Siblings" into treeStart
  if treeStart is empty or treeStart is not in card field 1 of card "Tree" then exit mouseUp
  push card
  pass mouseUp
end mouseUp



-- part 120 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=297 top=198 right=210 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global treeStart
  put line 5 of field "Siblings" into treeStart
  if treeStart is empty or treeStart is not in card field 1 of card "Tree" then exit mouseUp
  push card
  pass mouseUp
end mouseUp



-- part 121 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=297 top=209 right=221 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global treeStart
  put line 6 of field "Siblings" into treeStart
  if treeStart is empty or treeStart is not in card field 1 of card "Tree" then exit mouseUp
  push card
  pass mouseUp
end mouseUp



-- part 122 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=297 top=220 right=232 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global treeStart
  put line 7 of field "Siblings" into treeStart
  if treeStart is empty or treeStart is not in card field 1 of card "Tree" then exit mouseUp
  push card
  pass mouseUp
end mouseUp



-- part 123 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=297 top=231 right=243 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global treeStart
  put line 8 of field "Siblings" into treeStart
  if treeStart is empty or treeStart is not in card field 1 of card "Tree" then exit mouseUp
  push card
  pass mouseUp
end mouseUp



-- part 124 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=297 top=242 right=254 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global treeStart
  put line 9 of field "Siblings" into treeStart
  if treeStart is empty or treeStart is not in card field 1 of card "Tree" then exit mouseUp
  push card
  pass mouseUp
end mouseUp



-- part 125 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=297 top=253 right=265 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global treeStart
  put line 10 of field "Siblings" into treeStart
  if treeStart is empty or treeStart is not in card field 1 of card "Tree" then exit mouseUp
  push card
  pass mouseUp
end mouseUp



-- part 126 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=297 top=264 right=276 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global treeStart
  put line 11 of field "Siblings" into treeStart
  if treeStart is empty or treeStart is not in card field 1 of card "Tree" then exit mouseUp
  push card
  pass mouseUp
end mouseUp



-- part 127 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=297 top=275 right=287 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global treeStart
  put line 12 of field "Siblings" into treeStart
  if treeStart is empty or treeStart is not in card field 1 of card "Tree" then exit mouseUp
  push card
  pass mouseUp
end mouseUp



-- part 128 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=102 right=114 bottom=21
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global treeStart
  put field 13 into treeStart
  if treeStart is empty or treeStart is not in card field 1 of card "Tree" then exit mouseUp
  push card
  pass mouseUp
end mouseUp



-- part 129 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=115 right=127 bottom=21
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global treeStart
  put field 15 into treeStart
  if treeStart is empty or treeStart is not in card field 1 of card "Tree" then exit mouseUp
  push card
  pass mouseUp
end mouseUp



-- part 130 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=128 right=140 bottom=21
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global treeStart
  put field 17 into treeStart
  if treeStart is empty or treeStart is not in card field 1 of card "Tree" then exit mouseUp
  push card
  pass mouseUp
end mouseUp



-- part 131 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=141 right=153 bottom=21
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global treeStart
  put field 19 into treeStart
  if treeStart is empty or treeStart is not in card field 1 of card "Tree" then exit mouseUp
  push card
  pass mouseUp
end mouseUp



-- part 132 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=210 right=222 bottom=21
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global treeStart
  put field 7 into treeStart
  if treeStart is empty or treeStart is not in card field 1 of card "Tree" then exit mouseUp
  push card
  pass mouseUp
end mouseUp



-- part 133 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=227 right=239 bottom=21
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global treeStart
  put field 8 into treeStart
  if treeStart is empty or treeStart is not in card field 1 of card "Tree" then exit mouseUp
  push card
  pass mouseUp
end mouseUp



-- part 144 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=74 top=270 right=284 bottom=169
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name:


-- part 134 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=455 top=26 right=51 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global treeStart
  set cursor to 4
  put field 1 into treeStart
  if treeStart is empty or treeStart is not in card field 1 of card "Tree" then exit mouseUp
  push card
  pass mouseUp
end mouseUp



-- part 135 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=297 top=287 right=337 bottom=344
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: QuickLook
----- HyperTalk script -----
on mouseUp
  show all cards
end mouseUp



-- part 140 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=416 top=102 right=116 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name:


-- part 141 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=416 top=115 right=129 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name:


-- part 154 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=82 top=288 right=338 bottom=132
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  answer "What do you want to print?" with "Cancel" or "All Cards" or "This Card"
  if it is "Cancel"
  then
  exit mouseUp
else
  if it is "This Card"
  then
  open printing
  repeat with x = 49 to 55
    show background button x
  end repeat
  print this card
  show field "Story"
  print this card
  close printing
  hide field "Story"
  repeat with x = 49 to 55
    hide background button x
  end repeat
else
  put the number of cards into cardNum
  answer "Are you sure you want to print all" && (cardNum - 3) && "cards?" with "Yes" or "No"
  if it is "No" then exit mouseUp
  open printing
  go to card 4
  repeat with x = 49 to 55
    show background button x
  end repeat
  repeat with x = 3 to cardNum
    print card x
    show field "Story"
    print card x
    hide field "Story"
  end repeat
  close printing
  repeat with x = 49 to 55
    hide background button x
  end repeat
end if
end if
end mouseUp



-- part 142 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=416 top=128 right=142 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name:


-- part 143 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=416 top=141 right=155 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name:


-- part 146 (button)
-- low flags: 80
-- high flags: 0001
-- rect: left=451 top=22 right=52 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cover1


-- part 147 (button)
-- low flags: 80
-- high flags: 0001
-- rect: left=7 top=98 right=153 bottom=23
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cover2


-- part 148 (button)
-- low flags: 80
-- high flags: 0001
-- rect: left=494 top=96 right=289 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cover3


-- part 149 (button)
-- low flags: 80
-- high flags: 0001
-- rect: left=6 top=206 right=244 bottom=18
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cover4


-- part 150 (button)
-- low flags: 80
-- high flags: 0001
-- rect: left=281 top=201 right=243 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cover5


-- part 151 (button)
-- low flags: 80
-- high flags: 0001
-- rect: left=298 top=155 right=289 bottom=312
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cover6


-- part 152 (button)
-- low flags: 80
-- high flags: 0001
-- rect: left=2 top=288 right=341 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cover7


-- part 139 (field)
-- low flags: 80
-- high flags: 4007
-- rect: left=5 top=51 right=288 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Story